Sub ()

    Dim ġ As Range
    
    On Error Resume Next
    
        Set ġ = Worksheets("data").Range("B3")
        
        If Err.Number <> 0 Then
            
            MsgBox " ũδ [data] Ʈ ʿմϴ."
            Exit Sub
        
        End If
        
    On Error GoTo 
    
        With ġ
        
            .Value = Range("C2").Value
            .Offset(, 1).Value = Range("C4").Value
            .Offset(, 2).Value = Range("C6").Value
        
        End With

        Exit Sub

:

    MsgBox "    ߻߽ϴ."
    
End Sub